10 POKE53281,241:POKE53280,254
20 PRINT"[147]"
30 PRINT" [144][176]````````````````````````````````````[174]"
40 MM$=" [221]                                    [221]":PRINTMM$
50 PRINT" }       cUSTOMIZING loadstar         [144]}"
60 PRINT" }       [129][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]         [144]}"
70 FORA=1TO15
80 PRINTMM$
90 NEXT
220 PRINT" }   [156]uSE yOUR crsr [156]kEYS tO mOVE tHE   [144]}"
230 PRINT" }  [154] selector box [155][146][187] [156]AND PRESS return  [144]}"
240 PRINT" }   [155][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]                   [144]}"
250 PRINT" [173]````````````````````````````````````[189]"
260 PRINT"";
300 A$(1)="        [195][207][204][207][210] [211][197][212][213][208]        ":F$(1)="COLOR SELECT"
302 A$(2)="       [208][210][201][206][212][197][210] [211][197][212][213][208]       ":F$(2)="PRINT SELECT"
303 A$(3)="       [196][197][198][193][213][204][212][160][211][197][212][213][208]       ":F$(3)="DEFAULT SETUP"
304 A$(4)="     [210][197][212][213][210][206] [212][207] [204][207][193][196][211][212][193][210]    ":F$(4)="HELLO CONNECT"
305 S$="                               "
310 P$=""
320 PRINTP$;:FORX=1 TO 4
325 PRINTA$(X)CHR$(13)S$
330 NEXT:X=1:GOSUB350:GOTO500
350 PT$="[154]"+A$(X)+"[146][155][187]"
355 PT$=PT$+CHR$(13)+"[155][188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
400 RETURN
500 PRINTP$PT$
501 GETA$:IFA$=""THEN501
502 IF(A$=""ORA$="[157]")AND(X<4)THEN A=1:GOTO 600
503 IF(A$="[145]"ORA$="")AND(X>1)THEN A=-1:GOTO 600
505 IFA$=CHR$(13) THEN 800
550 GOTO 501
600 PRINTP$"[144]"A$(X)" "CHR$(13)S$
601 IFA=1 THEN P$=P$+""
602 IFA<1 THEN P$=LEFT$(P$,LEN(P$)-2)
603 X=X+A:GOSUB 350
625 GOTO 500
800 POKE53281,6:POKE53280,6
850 PRINT"[147]       [208]LEASE [215]AIT [215]HILE [204]OADING..."
860 POKE646,PEEK(53281)
861 PRINT"LOAD"+CHR$(34)+F$(X)+CHR$(34)+",8":PRINT"RUN"
865 POKE631,13:POKE632,13:POKE198,2:NEW